home *** CD-ROM | disk | FTP | other *** search
/ TPUG - Toronto PET Users Group / TPUG Users Group CD / TPUG Users Group CD.iso / C64 / T-TPUG Old Monthly Disks / (c)tn.d64 / vmsup2.rel.c (.txt) < prev    next >
Commodore BASIC  |  2007-02-04  |  5KB  |  134 lines
  1. 100 REM"[211]=S[193]"VMSUP2.REL",8[157]
  2. 110 [143]------------------------------
  3. 120 [143] BIT-MAPPED GRAPHICS  F.COVITZ
  4. 130 [143]------------------------------
  5. 135 [141]280
  6. 140 TM[178]55:CS[178]0:[135]N$,SP:[153]
  7. 150 [150][165]H(V)[178][181](V[173]256)
  8. 160 [150][165]L(V)[178]V[171]256[172][165]H(V)
  9. 170 AD[178][194](TM)[170]256[172][194](TM[170]1)[171]SP[171]1
  10. 180 V[178]AD
  11. 190 [151]TM,[165]L(V):[151]TM[170]1,[165]H(V)
  12. 200 [151]TM[171]4,[165]L(V):[151]TM[171]3,[165]H(V)
  13. 210 [129]I[178]0[164]SP[170]1:[135]V
  14. 220 [139]V[178]999[167][135]V:[137]260
  15. 230 CS[178]CS[170]V:[153]"ON"I
  16. 240 [139]V[179]0[167]V[178]AD[171]V:V%[178][165]H(V):V[178][165]L(V):[151]AD[170]I,V:V[178]V%:I[178]I[170]1
  17. 250 [151]AD[170]I,V:[130]I
  18. 260 [139]CS[179][177]V[176]I[179][177]SP[170]1[167][153]"FIX DATA";:[128]
  19. 270 [153]N$": AD="AD:[141]490:[128]
  20. 280 [153]"PROGRAM BY DR. FRANK COVITZ
  21. 290 PRINT"RELOCATION - LIZ DEAL
  22. 300 [153]"BIT SCREEN AT 8192 $2000-HEX
  23. 310 PRINT"SYS NR NO LONGER CLEARS THE BIT SCREEN,
  24. 320 [153]"  MONITOR SAVE $2000-3F40
  25. 340 PRINT"X,Y CAN BE ANY VALID BASIC EXPRESSIONS
  26. 350 [153]"SYNTAX ERROR IN XXXX
  27. 360 PRINT"  MISSING PUNCTUATION OR PARAMETERS
  28. 370 [153]"ILLEGAL QUANTITY ERROR IN XXXX
  29. 380 PRINT"  X NOT 0-319, OR Y NOT 0-199
  30. 390 [153]"CALL POINTS:
  31. 400 PRINT"AD     SETUP BIT SCREEN      SYS IN
  32. 410 [153]"AD+3   NORMAL, DOESN'T CLR   SYS NR
  33. 420 PRINT"AD+6[160]  CLR BIT SCREEN        SYS CL
  34. 430 [153]"AD+9   MOVE TO X,Y           SYS MV,X,Y
  35. 440 PRINT"AD+12  DRAW FROM PREV TO X,Y SYS DR,X,Y
  36. 450 [153]"AD+15  SET PIX ON AT X,Y     SYS PX,X,Y
  37. 460 PRINT"AD+636 POKE IT TO CHANGE COLORS
  38. 480 [142]
  39. 490 [153]"USE ANY KEY TO GET OUT OF BIT MODE"
  40. 495 [133]"WANT TO SEE A TERRIBLE DEMO   YCMDCMDCMD";I$
  41. 500 [139][198](I$)[178]78[167][142]
  42. 8000 [151]AD[170]636,2[172]16[170]1:[143] COLORS
  43. 8020 [158]AD          :[143] SETUP BIT SCRN
  44. 8030 [158]AD[170]6        :[143] CLR VM
  45. 8040 [158]AD[170]15,10,20 :[143] MOVE TO X,Y
  46. 8050 [158]AD[170]9,319,199:[143] DRAW TO
  47. 8060 [158]AD[170]9,160,0  :[143] DRAW TO
  48. 8070 [158]AD[170]9,0,199  :[143] DRAW TO
  49. 8080 [158]AD[170]12,99,6  :[143] SET PIX
  50. 8090 [158]AD[170]12,99,8  :[143] SET PIX
  51. 8100 [158]AD[170]12,99,20 :[143] SET PIX
  52. 8110 [161]I$:[139]I$[178]""[137]8110
  53. 8120 [158]AD[170]3        :[143] RESTORE NORMAL
  54. 8130 [142]
  55. 9000 [131] "VM SUPPORT",827
  56. 51200 [131]  76,-660, 76,-709, 76,-607, 76,-137, 76,-757
  57. 51201 [131]  32,-747, 140, 60, 3, 140, 62, 3, 141, 61
  58. 51202 [131]  3, 141, 63, 3, 32,-747, 140, 64, 3, 140
  59. 51203 [131]  66, 3, 141, 67, 3, 32,-458, 169, 0, 133
  60. 51204 [131]  254, 56, 169, 199, 237, 64, 3, 72, 41, 248
  61. 51205 [131]  10, 38, 254, 10, 38, 254, 10, 38, 254, 72
  62. 51206 [131]  141, 80, 3, 165, 254, 141, 81, 3, 104, 10
  63. 51207 [131]  38, 254, 10, 38, 254, 109, 80, 3, 133, 253
  64. 51208 [131]  165, 254, 109, 81, 3, 133, 254, 173, 60, 3
  65. 51209 [131]  41, 248, 101, 253, 133, 253, 173, 61, 3, 101
  66. 51210 [131]  254, 133, 254, 104, 41, 7, 101, 253, 133, 253
  67. 51211 [131]  165, 254, 105, 32, 133, 254, 173, 60, 3, 41
  68. 51212 [131]  7, 170, 189,-820, 141, 68, 3, 96, 32,-747
  69. 51213 [131]  140, 62, 3, 141, 63, 3, 32,-747, 140, 66
  70. 51214 [131]  3, 32,-458, 56, 173, 62, 3, 237, 60, 3
  71. 51215 [131]  141, 69, 3, 173, 63, 3, 237, 61, 3, 141
  72. 51216 [131]  70, 3, 56, 173, 66, 3, 237, 64, 3, 141
  73. 51217 [131]  71, 3, 173, 67, 3, 237, 65, 3, 141, 72
  74. 51218 [131]  3, 173, 62, 3, 141, 60, 3, 173, 63, 3
  75. 51219 [131]  141, 61, 3, 173, 66, 3, 141, 64, 3, 173
  76. 51220 [131]  67, 3, 141, 65, 3, 169, 0, 141, 79, 3
  77. 51221 [131]  44, 70, 3, 16, 23, 173, 69, 3, 32,-491
  78. 51222 [131]  141, 69, 3, 173, 70, 3, 32,-492, 141, 70
  79. 51223 [131]  3, 169, 2, 141, 79, 3, 44, 72, 3, 16
  80. 51224 [131]  27, 173, 71, 3, 32,-491, 141, 71, 3, 173
  81. 51225 [131]  72, 3, 32,-492, 141, 72, 3, 24, 173, 79
  82. 51226 [131]  3, 105, 4, 141, 79, 3, 174, 69, 3, 236
  83. 51227 [131]  71, 3, 173, 70, 3, 168, 237, 72, 3, 16
  84. 51228 [131]  27, 173, 71, 3, 141, 69, 3, 173, 72, 3
  85. 51229 [131]  141, 70, 3, 142, 71, 3, 140, 72, 3, 24
  86. 51230 [131]  173, 79, 3, 105, 8, 141, 79, 3, 173, 69
  87. 51231 [131]  3, 32,-491, 141, 73, 3, 173, 70, 3, 32
  88. 51232 [131] -492, 141, 74, 3, 56, 48, 1, 24, 110, 74
  89. 51233 [131]  3, 110, 73, 3, 169, 0, 168, 141, 77, 3
  90. 51234 [131]  141, 78, 3, 174, 79, 3, 173, 77, 3, 205
  91. 51235 [131]  69, 3, 173, 78, 3, 237, 70, 3, 16, 66
  92. 51236 [131]  24, 173, 73, 3, 109, 71, 3, 141, 73, 3
  93. 51237 [131]  173, 74, 3, 109, 72, 3, 141, 74, 3, 48
  94. 51238 [131]  25, 56, 173, 73, 3, 237, 69, 3, 141, 73
  95. 51239 [131]  3, 173, 74, 3, 237, 70, 3, 141, 74, 3
  96. 51240 [131]  32,-445, 76,-427, 32,-446, 177, 253, 13, 68
  97. 51241 [131]  3, 145, 253, 238, 77, 3, 208, 178, 238, 78
  98. 51242 [131]  3, 208, 173, 96, 232, 138, 10, 170, 189,-787
  99. 51243 [131]  72, 189,-786, 72, 96, 173, 62, 3, 201, 64
  100. 51244 [131]  173, 63, 3, 233, 1, 176, 12, 173, 66, 3
  101. 51245 [131]  201, 200, 173, 67, 3, 233, 0, 144, 8, 32
  102. 51246 [131] -709, 162, 14, 108, 0, 3, 96, 56, 73, 255
  103. 51247 [131]  105, 0, 96, 32,-566, 165, 253, 41, 7, 73
  104. 51248 [131]  7, 240, 8, 230, 253, 208, 17, 230, 254, 208
  105. 51249 [131]  13, 24, 165, 253, 105, 57, 133, 253, 165, 254
  106. 51250 [131]  105, 1, 133, 254, 96, 32,-588, 165, 253, 41
  107. 51251 [131]  7, 208, 15, 56, 165, 253, 233, 57, 133, 253
  108. 51252 [131]  165, 254, 233, 1, 133, 254, 208, 8, 165, 253
  109. 51253 [131]  208, 2, 198, 254, 198, 253, 96, 32,-533, 14
  110. 51254 [131]  68, 3, 144, 13, 46, 68, 3, 165, 253, 233
  111. 51255 [131]  7, 133, 253, 176, 2, 198, 254, 96, 32,-500
  112. 51256 [131]  78, 68, 3, 144, 13, 110, 68, 3, 165, 253
  113. 51257 [131]  105, 8, 133, 253, 144, 2, 230, 254, 96, 169
  114. 51258 [131]  63, 133, 254, 169, 0, 133, 253, 168, 133, 253
  115. 51259 [131]  145, 253, 160, 63, 162, 32, 145, 253, 136, 208
  116. 51260 [131]  251, 198, 254, 202, 208, 246, 96, 169, 251, 162
  117. 51261 [131]  0, 157, 0, 4, 157, 0, 5, 157, 0, 6
  118. 51262 [131]  232, 208, 244, 162, 232, 157, 255, 6, 202, 208
  119. 51263 [131]  250, 96, 120, 173, 17, 208, 9, 32, 141, 17
  120. 51264 [131]  208, 173, 24, 208, 9, 8, 141, 24, 208, 32
  121. 51265 [131] -635, 32,-607, 173, 0, 3, 141, 82, 3, 173
  122. 51266 [131]  1, 3, 141, 83, 3, 173,-818, 141, 0, 3
  123. 51267 [131]  173,-819, 141, 1, 3, 88, 96, 120, 234, 234
  124. 51268 [131]  234, 173, 17, 208, 41, 223, 141, 17, 208, 173
  125. 51269 [131]  24, 208, 41, 247, 141, 24, 208, 169, 32, 32
  126. 51270 [131] -637, 173, 82, 3, 141, 0, 3, 173, 83, 3
  127. 51271 [131]  141, 1, 3, 96, 32, 253, 174, 32, 158, 173
  128. 51272 [131]  32, 170, 177, 96, 32,-15, 160, 0, 177, 253
  129. 51273 [131]  13, 68, 3, 145, 253, 96, 72, 138, 72, 152
  130. 51274 [131]  72, 32,-709, 104, 168, 104, 170, 104, 108, 0
  131. 51275 [131]  3,-587,-529,-565,-562,-587,-584,-565,-496,-532
  132. 51276 [131] -529,-532,-562,-499,-584,-499,-496,-770, 128, 64
  133. 51277 [131]  32, 16, 8, 4, 2, 1, 999, 42059 
  134.